home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / MPW Oberon 2.1168 / OInterfaces / Strings.mod < prev    next >
Encoding:
Text File  |  1995-08-10  |  1.1 KB  |  48 lines  |  [TEXT/MPS ]
  1. (*
  2.      File:        Strings.mod
  3.  
  4.      Contains:    Pascal <-> C String Interfaces.
  5.  
  6.      Version:    Technology:    System 7.5
  7.                  Package:    Universal Interfaces 2.0 in “MPW Latest” on ETO #17
  8.  
  9.      Copyright:    © 1984-1995 by Apple Computer, Inc.
  10.                  All rights reserved.
  11.  
  12.      Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13.                  stack.  Include the file and version information (from above)
  14.                  in the problem description and send to:
  15.                      Internet:    apple.bugs.applelink.apple.com
  16.                      AppleLink:    APPLE.BUGS
  17.  
  18. *)
  19.  
  20. (*$IF UNDEFINED OLDROUTINELOCATIONS*)
  21. (*$SET OLDROUTINELOCATIONS FALSE*)
  22. (*$END*)
  23. (*$TAGS-*)
  24. (*$CALLING PASCAL*)
  25. MODULE Strings;
  26.  
  27. IMPORT SYSTEM, Types;
  28.  
  29. (* $PUSH*)
  30. (* $ALIGN MAC68K*)
  31. (* $LibExport+*)
  32. (*$IF OLDROUTINELOCATIONS *)
  33.  
  34. PROCEDURE C2PStrProc*(aStr: (*ΔΔUNIVΔΔ*) Types.Ptr);
  35.     EXTERNAL PASCAL;
  36. PROCEDURE C2PStr*(cString: (*ΔΔUNIVΔΔ*) Types.Ptr): Types.StringPtr;
  37.     EXTERNAL PASCAL;
  38. PROCEDURE P2CStrProc*(aStr: Types.StringPtr);
  39.     EXTERNAL PASCAL;
  40. PROCEDURE P2CStr*(pString: Types.StringPtr): Types.Ptr;
  41.     EXTERNAL PASCAL;
  42. (*$END*)
  43.  
  44. (* $ALIGN RESET*)
  45. (* $POP*)
  46.  
  47.  END Strings.
  48.